(textget): Ignore category prop if not a symbol.

diff --git a/src/intervals.c b/src/intervals.c
index 67ac392e6e5527f551bbc5c4d65e770d8086411c..2ebc8e3cdf8a778a1bf0e216ba63947d0ea707b2 100644 (file)
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1558,7 +1558,11 @@ textget (plist, prop)
       if (EQ (prop, tem))
        return Fcar (Fcdr (tail));
       if (EQ (tem, Qcategory))
-       fallback = Fget (Fcar (Fcdr (tail)), prop);
+       {
+         tem = Fcar (Fcdr (tail));
+         if (SYMBOLP (tem))
+           fallback = Fget (tem, prop);
+       }
     }
 
   return fallback;